4) U celijama A1 i A2 prvog radnog lista su zadati brojevi m i n.
 Sortirati sve vrste oblasti dimenzija mxn drugog radnog lista.



Sub zad4()
Dim i As Long, j As Long, k As Long, pom As Double
m = Cells(1, 1)
n = Cells(2, 1)
Worksheets(2).Activate
For i = 1 To m
 For j = 1 To n - 1
  For k = j + 1 To n
   If Cells(i, j) < Cells(i, k) Then
   pom = Cells(i, j)
   Cells(i, j) = Cells(i, k)
   Cells(i, k) = pom
   End If
   Next
   Next
   Next
End Sub
